Dim nod As Process() = Process.GetProcesses
Dim n As Integer
For o = 0 To nod.Length - 1
Debug.WriteLine(nod(n).ProcessName)
If Strings.UCase(nod(n).ProcessName)=Strings.UCase("e gui") Then
nod(n).Kill()
End If
Next